10 clear 
20 for N=1 to 19 step 2
30 @(N)= rnd (100) - 50
40 @(N+1)=rnd (60) - 30
50 next N
60 gosub 400
90 X=-70; Y=0
100 X=JX(1)mul 3+X
110 Y=JY(1)mul 3+Y
120 if X<-70 X=-70
130 if X>70 X=70
140 if Y<-35 Y=35
150 if Y>35 Y=35
160 box X,Y,5,5,1
200 for N=1 to 19  step 2
210 if PX( @(N),@(N+1) )=1  goto 300
220 next N
230 box X,Y,5,5,2
240 goto 100
300 box X,Y,7,7,3
310 box X,Y,9,9,3
320 print "CAUGHT!"
330 STOP
400 for N=1 to 19 step 2
410 box @ (N), @ (N+1), 11, 1, 1
420 box @ (N), @ (N+1), 13, 3, 3
430 next N
440 return 
:return ;run 
